#!/bin/perl



undef $/  ;

$* = 1 ;



$_ = <> ;



s/\015/\012/g ;



print STDOUT ;

